From: Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
Date: Thu, 3 Dec 2009 14:33:00 +0000 (+0000)
Subject: (proced-filter-alist): Use regexp-quote.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9110
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=59f866ec4a7b597ffadd87d0f97852db06a99730;p=emacs.git

(proced-filter-alist): Use regexp-quote.
---

diff --git a/lisp/proced.el b/lisp/proced.el
index fd3e4ab706e..00c55bd254a 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -265,8 +265,8 @@ It can also be a list of keys appearing in `proced-grammar-alist'."
 ;; FIXME: is there a better name for filter `user' that does not coincide
 ;; with an attribute key?
 (defcustom proced-filter-alist
-  `((user (user . ,(concat "\\`" (user-real-login-name) "\\'")))
-    (user-running (user . ,(concat "\\`" (user-real-login-name) "\\'"))
+  `((user (user . ,(concat "\\`" (regexp-quote (user-real-login-name)) "\\'")))
+    (user-running (user . ,(concat "\\`" (regexp-quote (user-real-login-name)) "\\'"))
                   (state . "\\`[Rr]\\'"))
     (all)
     (all-running (state . "\\`[Rr]\\'"))